home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ WinNT AutoLogin Enable.xpl < prev    next >
Text File  |  2001-04-12  |  2KB  |  58 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Network\Auto Login\Windows NT/2K/XP"
  5. "NAME"="General"
  6. "VERSION"="1.80"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="010101"
  9. "TEXT 1"="Enable auto login"
  10. "DESCRIPTION 1"="Auto login can be used to eliminate the "Press Ctrl+Alt+Del to login" screen."
  11. "DESCRIPTION 2"="Enable auto login ONLY if you have set the correct values before with the "Settings" plug-in."
  12. "DESCRIPTION 3"="Be advised, your password and user name information will be kept in the system registry in a non-encrypted form and could be revealed if anyone were to logon locally to your machine and open the Registry Editor.  We suggest only using this if you have non-critical data on your computer or if the machine is located in a secure physical environment."
  13. "DESCRIPTION 4"="Please note also, that you can use the "Accounts and Passwords" applets inside Control Panel if you are using Windows 2000 or above to turn off the login window all togehter."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20.  
  21.  
  22. sRP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
  23. Sub Plugin_Initialize 
  24.  if RegPathExists(sRP) then
  25.   i=RegReadValue(srp&"AutoAdminLogon")
  26.   if i=1 then 
  27.    SetUIElement 1,true
  28.   end if
  29.  else
  30.   Disable
  31.  end if
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.     Call RegWriteValue(srp&"AutoAdminLogon","1",1)
  41.     Call MsgWarning("NOTICE: To log on to the system as a different user, hold down the Shift key after logging off and you'll see the regular logon dialog box again.")
  42.  else
  43.   s=RegReadValue(srp&"AutoAdminLogon")
  44.  
  45.   if IsNull(s)=false and Len(s)>0 then
  46.      Call RegDeleteValue(srp&"AutoAdminLogon")
  47.   end if
  48.  end if
  49.  
  50.  Logoff
  51. End Sub
  52.  
  53. Sub Plugin_Terminate 
  54. End Sub
  55.  
  56.  
  57.  
  58.